home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Applications / MacPerl 4.1.3 / Perl / Perl.r < prev    next >
Encoding:
Text File  |  1994-05-04  |  6.9 KB  |  197 lines  |  [TEXT/MPS ]
  1. I.r"
  2.  
  3. include "Perl.rsrc";
  4.  
  5. resource 'GU∑I' (GUSIRsrcID) {
  6.     text, mpw, noAutoSpin, useChdir, approxStat, noTCPDaemon, noUDPDaemon;
  7. };
  8.  
  9. resource 'vers' (1) {
  10.     0x04, 0x13, release, 0x00, verUS,
  11.     "4.1.3",
  12.     "Perl - ported by Matthias Neeracher and Tim Endres."
  13.     };
  14.  
  15. resource 'vers' (2) {
  16.     0x04, 0x13, release, 0x00, verUS,
  17.     "4.1.3",
  18.     "Perl 4.1.3 (02May94)"
  19.     };
  20.  
  21. resource 'DLOG' (2001)    {
  22.     {  0,   0, 150, 400},
  23.     dBoxProc,
  24.     invisible,
  25.     noGoAway,
  26.     0,
  27.     2001,
  28.     ""
  29. };
  30.  
  31. resource 'DITL' (2001)    {
  32.     {
  33.         {119,  307, 137,  387}, Button         { enabled, "B1"},
  34.         {119, 8406, 137, 8486}, Button         { enabled, "B2"},
  35.         {119, 8313, 137, 8393}, Button         { enabled, "B3"},
  36.         { 13,   23,  45,   55}, Icon            {disabled, 0    },
  37.         { 13,   78, 103,  387}, StaticText    {disabled, "Prompt"}
  38.     }
  39. };
  40.  
  41. resource 'DLOG' (2002)    {
  42.     {  0,   0, 150, 400},
  43.     dBoxProc,
  44.     invisible,
  45.     noGoAway,
  46.     0,
  47.     2002,
  48.     ""
  49. };
  50.  
  51.  
  52. resource 'DITL' (2002)    {
  53.     {
  54.         {119,  307, 137,  387}, Button         { enabled, "B1"},
  55.         {119,  214, 137,  294}, Button         { enabled, "B2"},
  56.         {119, 8313, 137, 8393}, Button         { enabled, "B3"},
  57.         { 13,   23,  45,   55}, Icon        {disabled, 2    },
  58.         { 13,   78, 103,  387}, StaticText    {disabled, "Prompt"}
  59.     }
  60. };
  61.  
  62. resource 'DLOG' (2003)    {
  63.     {  0,   0, 150, 400},
  64.     dBoxProc,
  65.     invisible,
  66.     noGoAway,
  67.     0,
  68.     2003,
  69.     ""
  70. };
  71.  
  72. resource 'DITL' (2003)    {
  73.     {
  74.         {119, 307, 137, 387}, Button         { enabled, "B1"},
  75.         {119, 214, 137, 294}, Button         { enabled, "B2"},
  76.         {119, 121, 137, 201}, Button         { enabled, "B3"},
  77.         { 13,  23,  45,  55}, Icon            {disabled, 2    },
  78.         { 13,  78, 103, 387}, StaticText    {disabled, "Prompt"}
  79.     }
  80. };
  81.  
  82. resource 'DLOG' (2010) {
  83.     {0, 0, 104, 400},
  84.     dBoxProc,
  85.     invisible,
  86.     noGoAway,
  87.     0x0,
  88.     2010,
  89.     ""
  90. };
  91.  
  92. resource 'DITL' (2010, "Ask", purgeable) {
  93.     {    
  94.         {73, 307, 91, 387}, Button             { enabled, "OK"},
  95.         {73, 214, 91, 294},    Button             { enabled, "Cancel"},
  96.         {13,  13, 31, 387},    StaticText         {disabled, "^0"},
  97.         {44,  15, 60, 385}, EditText         {disabled, ""}
  98.     }
  99. };
  100.  
  101. resource 'DLOG' (2020) {
  102.     {38, 80, 245, 427},
  103.     dBoxProc,
  104.     invisible,
  105.     noGoAway,
  106.     0x0,
  107.     2020,
  108.     ""
  109. };
  110.     
  111. resource 'DITL' (2020) {
  112.     {    
  113.         {178,  30, 198,  88},    Button         { enabled, "OK"},
  114.         {178, 258, 198, 316},    Button         { enabled, "Cancel"},
  115.         {  2,   2,  19, 373},    StaticText     {disabled, "Prompt"},
  116.         { 19,   2, 168, 345},    UserItem     {disabled}
  117.     }
  118. };
  119.  
  120. resource 'cmdo' (128) {
  121.     {
  122.         295,            /* Height of dialog */
  123.         "Perl -- Practical Extraction and Report Language\n"
  124.         "by Larry Wall <lwall@netlabs.com>",
  125.         {
  126.             Or {{-2}}, Files {
  127.                 InputFile,
  128.                 OptionalFile {
  129.                     { 17,  10,  33, 115},
  130.                     { 15, 117,  35, 195},
  131.                     "Program File:",
  132.                     "", "", "",
  133.                     "Select program file. If no files are specified and no program "
  134.                     "is given on the command line, standard input will be used.",
  135.                     dim,
  136.                     "Read Standard Input",
  137.                     "Select a script to execute…",
  138.                     "",
  139.                 },
  140.                 Additional {
  141.                     "",
  142.                     ".pl",
  143.                     "Files ending with .pl",
  144.                     "All text files",
  145.                     {text}
  146.                 }
  147.             },
  148.             Or {{-1}}, RegularEntry {
  149.                 "Program:",
  150.                 { 42,  10,  58, 115},
  151.                 { 42, 120,  58, 465},
  152.                 "",
  153.                 keepCase,
  154.                 "-e",
  155.                 "Program to execute."
  156.             },
  157.             notDependent {}, MultiFiles {
  158.                 "Input File(s)…",
  159.                 "Select input files.  If no files are specified, Perl reads from standard input.",
  160.                 { 15, 300, 35, 465},
  161.                 "Input files:",
  162.                 "",
  163.                 MultiInputFiles {
  164.                     {TEXT},
  165.                     FilterTypes,
  166.                     "Only text files",
  167.                     "All files",
  168.                 }
  169.             },
  170.             notDependent {}, Redirection {
  171.                 StandardInput,
  172.                 { 75,  20}
  173.             },
  174.             notDependent {}, Redirection {
  175.                 StandardOutput,
  176.                 {110,  20}
  177.             },
  178.             notDependent {}, Redirection {
  179.                 DiagnosticOutput,
  180.                 {145,  20}
  181.             },
  182.             notDependent {}, TextBox {
  183.                 gray,
  184.                 { 70,  10, 185, 240},
  185.                 "Redirection"
  186.             },
  187.             notDependent {}, CheckOption     {
  188.                 NotSet, { 75, 270,  91, 465}, "Print Version", "-v", 
  189.                 "Print version information to standard output.",
  190.             },
  191.             notDependent {}, CheckOption     {
  192.                 NotSet, { 92, 270, 108, 465}, "Syntax Check Only", "-c", 
  193.                 "Exit after syntax checking.",
  194.             },
  195.             notDependent {}, CheckOption     {
  196.                 NotSet, {109, 270, 125, 465}, "Print warnings", "-w", 
  197.                 "Print warnings about